Зміст
Введення
1. Проектування програмного модуля
Математичний опис завдання
1.2 Розробка схеми алгоритму та її опис
2. Реалізація програмного модуля
2.1 Код програми
2.2 Опис використаних операторів
3. Тестування програмного модуля
Висновок
Список використаних джерел
Програми
Введення
Програма MS Excel, будучи лідером на ринку програм обробки електронних таблиць, визначає тенденції розвитку в цій галузі. Аж до версії 4.0 програма Excel представляла собою фактичний стандарт з точки зору функціональних можливостей і зручності роботи. Тепер на ринку з'явилася версія Excel XP в пакеті MS Office XP, яка містить багато покращень і приємних несподіванок.
До значних досягнень у нових версіях програми Excel можна віднести появу тривимірних документів (блокнотів). Встановлення зв'язків між файлами і таблицями значно спростилося в порівнянні з колишніми версіями. Контекстні меню значно розширені, а додаткові програмні інструменти полегшують вирішення складних прикладних завдань.
Слід також згадати про різні помічниках (Ассистентах), які допомагають користувачеві задавати функції і видають рекомендації, якщо є більш простий метод рішення поточної задачі. У програму Excel вбудована зручна підсистема допомоги, яка в будь-який момент готова видати необхідну довідку.
Описані досі нововведення стосуються в основному комфорту в роботі і швидкого освоєння програми. Одним з найважливіших функціональних розширень програми, призначеним для професіоналів, є вбудована в Excel Середовище програмування Visual Basic (VBA) для вирішення прикладних завдань. Завдяки VBA фірмі Microsoft вдалося не тільки розширити можливості мови макрокоманд Excel 4.0, а й запровадити новий рівень прикладного програмування, оскільки VBA дозволяє створювати повноцінні прикладні пакети, які за своїми функціями виходять далеко за рамки обробки електронних таблиць.
Починаючи з версії 5.0, в програму Excel включений спеціальна мова програмування, що отримав назву Visual Basic for Applications (VBA).
Запровадження досить потужного мови програмування в Excel робить цю програмну платформу дуже привабливою для професіоналів, які займаються розробкою спеціалізованих прикладних систем.
Розробка мови програмування VBA, що вбудовується в прикладні системи, є одним із стратегічних напрямів компанії Microsoft. Ця мова вже інтегрований в такі програми, як Word, PowerPoint, Access пакета Microsoft Office 97. VBA дозволяє створювати програмні модулі, меню, діалогові вікна та інші ресурси в середовищі Windows. Завдяки цій мові з'являється можливість значно розширити набір функцій у Excel, а також створювати функції, значення яких залежать від деяких умов і подій. У принципі, можна повністю перепрограмувати всі функції програми Excel, якщо в цьому з'явилася необхідність.
Метою контрольної роботи на тему «Основи програмування на VBA: Модель об'єктів Exel» є розробка і реалізація програми розрахунку заданої функції на мові програмування VBA, оформлення пояснювальної записки.
У розділі «Проектування програмного модуля" пункт "Математичне опис завдання» описана математична модель, параметри та характеристики завдання, а також наведено критерії оцінки ефективності створеного модуля.
У розділі «Проектування програмного модуля" пункт "Розробка схеми алгоритму та її опис» наведена схема алгоритму з урахуванням можливостей мови VBA.
У розділі «Реалізація програмного модуля" пункт "Код програми» розробляється вихідний код модуля з призначеним для користувача інтерфейсом.
У розділі «Реалізація програмного модуля" пункт "Опис використаних операторів» наводиться перелік операторів, як у програмі, з коротким описом кожного оператора.
У розділі «Тестування програмного модуля» проводиться опис запуску тестового прикладу.
Додаток «Текст програми» містить роздруківку процедур основного модуля програми.
Додаток «Тестовий приклад» містить екранну копію у момент тестування програми.
1. Проектування програмного модуля
1.1 Математичне опис завдання
Метою даної контрольної роботи є проектування системи, оптимальним чином орієнтованою на вирішення поставленої прикладної задачі. У результаті аналізу математичної моделі системи необхідно визначити вихідні дані для синтезу системи, які включають в себе:
Функцію системи, певну номенклатурою прикладної задачі;
Параметри і характеристики системи з областю їх дії і обмеженнями на них;
Критерій ефективності функціонування системи, пропонованої з метою перевірки на оптимальність об'єкту проектування.
Номенклатурою, в нашому випадку це завдання до контрольної роботи, визначається наступна функція системи:
O_stoim = Potr / 100 * Zena * O_prob, (1.1)
де O_stoim - загальна вартість, грн;
Potr - споживання бензину на 100 км, л;
Zena - ціна 1-го літра бензину, руб;
O_prob - загальний пробіг, км.
Параметри і характеристики системи представлені в таблиці 1.1
Таблиця 1.1 Параметри і характеристики системи
Ім'я | Тип | Обмеження | Роль в модулі |
N_auto | String | 2 ^ 16 символів | параметр |
M_auto | String | 2 ^ 16 символів | параметр |
M_benz | String | 2 ^ 16 символів | параметр |
q | String | 2 ^ 16 символів | характеристика |
B | String | 2 ^ 16 символів | характеристика |
E | String | 2 ^ 16 символів | характеристика |
O_prob | single | -3,402823 Е38 .. 3,402823 Е38 | параметр |
Potr | single | -3,402823 Е38 .. 3,402823 Е38 | параметр |
Zena | single | -3,402823 Е38 .. 3,402823 Е38 | параметр |
O_stoim | single | -3,402823 Е38 .. 3,402823 Е38 | параметр |
Тип параметрів і характеристик визначається виходячи з вимог математичної функції і можливостей мови програмування. Наприклад, характеристика q використовується тільки в розрахунку, користувач не повинен її змінювати, на відміну від O_prob, Potr та ін Обмеження на змінні визначаються виходячи з вимог функції до них і можливостей мови (залежить від кількості пам'яті, виділеної під дану змінну).
Критерії ефективності функціонування системи виробляються виходячи з вимог постановки завдання та сучасних вимог користувача до програми і її інтерфейсу.
Правильність розрахунку;
Можливість введення вихідних даних у будь-який час роботи програми, крім того моменту, коли здійснюється розрахунок;
Обов'язкове відображення результатів розрахунку на робочому листі і на користувальницькій формі;
Використання зручного для користувача інтерфейсу.
Це основні критерії оцінки ефективності функціонування системи, які дозволять перевірити працездатність і оптимальність створеного продукту. Перевірка описана нижче в пункті «Тестування програмного модуля»
1.2 Розробка схеми алгоритму та її опис
Використовуючи генератор призначених для користувача форм можна реалізувати зручний інтерфейс введення і виведення даних. Це нескладно зробити, використовуючи об'єкт VBA - TextBox. За умовами задачі програма повинна виводити результати на робочу сторінку. Підпрограми розрахунку будуть запускатися по кнопці на користувальницькій формі (об'єкт CommandButton).
Отже, виходячи з можливостей мови програмування, можна скласти блок-схему, представлену на малюнку 1.1
Малюнок 1.1 Блок-схема алгоритму
1 - Ручне введення користувачем вихідних даних - N_auto, M_auto, M_benz, O_prob, Potr, Zena; 2 - Машинна операція розрахунку результату за заданою формулою, 3 - Висновок результату на екран.
2. Реалізація програмного модуля
2.1 Код програми
Особливістю мови VBA є те, що програмний модуль запускається по якій-небудь події, будь-то введення з клавіатури користувачем рядка, натискання на певну кнопку клавіатури, переміщення миші, натискання кнопки миші і т.п. Розроблюваний програмний модуль буде спрацьовувати, коли користувач натискає певну кнопку на інтерфейсі. За умовами задачі результати повинні виводитися на робочий лист, ця процедура буде запускатися за подією: CommandButton1_Click. Основою програми є користувальницька форма, на якій знаходяться об'єкти, необхідні для роботи системи і «спілкування» з користувачем. Розроблена форма представлена на малюнку 1.2
Введення вихідних даних для користувача здійснюється за допомогою об'єктів VBA - TextBox. Шість цих об'єктів дозволяють ввести значення N_auto, M_auto, M_benz, O_prob, Potr, Zena.
Розрахунок результатів здійснюється за допомогою об'єкта-кнопки CommandButton, описаного вище. Інші об'єкти на формі - типу «label» і носять суто інформативний характер. Також використовується процедура UserForm_Initialize, яка викликається при ініціалізації форми і формує заголовки в таблиці. Програмний код представлений в Додатку А.
Малюнок 1.2 Користувацька форма
2.2 Опис використаних операторів
Оголошення змінних:
Public N_auto, M_auto, M_benz, q, B, E As String
Public O_prob, Potr, Zena, O_stoim As Single
Кожна процедура в VBA починається з оператора оголошення процедури і закінчується оператором End Sub. У розробляється програмному модулі описано три процедури:
Private Sub CommandButton1_Click ()
Private Sub CommandButton2_Click ()
Private Sub CommandButton3_Click ()
Private Sub UserForm_Initialize ()
Ключове слово Private використовується для того, щоб зробити процедуру приватної для модуля.
Основою всіх обчислень у VBA є оператор, тому він найбільш часто зустрічається в програмному коді, наприклад:
ActiveSheet.Cells (i, 7) = CStr (O_stoim).
CStr () - строкова функція, яка перетворює число в рядок;
MsgBox () - видає вікно повідомлення;
CDbl () - перетворює рядок у число.
3. Тестування програмного модуля
Для запуску програмного модуля досить відкрити документ «КР.xls» і Excel автоматично запустить програму. Це досягається за допомогою події Workbook_Open з використанням методів:
Load UserForm1
UserForm1.Show
Користувач повинен ввести вихідні дані і запустити розрахунок, використовуючи кнопку «Підрахувати». Результат відображається на робочий лист. Тестовий приклад наведено у Додатку Б.
Використовуючи основні критерії оцінки ефективності функціонування програмного модуля, описані в пункті «Математичне опис завдання» можна зробити висновок про працездатність і оптимальності програмного модуля.
Висновок
У контрольній роботі на тему «Основи програмування на VBA: Модель об'єктів EXEL» був розроблений і реалізований програмний модуль з користувацької формою. Програмний модуль забезпечує введення вихідних даних, розрахунок заданої математичної функції та виведення результатів на робочий лист.
У процесі роботи була розроблена математична модель задачі, схема алгоритму, код програми на мові VBA, призначений для користувача інтерфейс і проведено тестування програмного модуля.
Список використаної літератури
Р. Петерсон. Microsoft Excel 97 у оригіналі: У 2т.: Пров. з англ.-СПб.: BHV-Санкт-Петербург, 1997. Том 1 - 672 с., Іл.
У. Орвіс. Visual Basic for application.-М. Біном 1995.
Додаток А. Програмний код
Public N_auto, M_auto, M_benz, q, B, E As String
Public O_prob, Potr, Zena, O_stoim As Single
"Процедура після натискання кнопки" підрахувати "
Private Sub CommandButton1_Click ()
N_auto = UserForm1.TextBox1
If N_auto = "" Then
B = MsgBox ("Введіть номер автомобіля", vbCritical, "")
'Фокусування на полі введення
UserForm1.TextBox1.SetFocus
GoTo s
End If
M_auto = UserForm1.TextBox2
If M_auto = "" Then
B = MsgBox ("Введіть марку автомобіля", vbCritical, "")
UserForm1.TextBox2.SetFocus
GoTo s
End If
M_benz = UserForm1.TextBox3
If M_benz = "" Then
B = MsgBox ("Введіть марку бензину", vbCritical, "")
UserForm1.TextBox3.SetFocus
GoTo s
End If
O_prob = UserForm1.TextBox4
If O_prob = "" Then
B = MsgBox ("Введіть загальний пробіг", vbCritical, "")
UserForm1.TextBox4.SetFocus
GoTo s
End If
O_prob = ""
'Повідомлення про помилку при введенні нечислових даних
On Error Resume Next
O_prob = CDbl (UserForm1.TextBox4)
If O_prob = "" Then
B = MsgBox ("Введіть число !!!", vbCritical," ")
UserForm1.TextBox4.SetFocus
GoTo s
End If
Potr = UserForm1.TextBox4
If Potr = "" Then
B = MsgBox ("Введіть споживання л/100", vbCritical, "")
UserForm1.TextBox5.SetFocus
GoTo s
End If
Potr = ""
On Error Resume Next
Potr = CDbl (UserForm1.TextBox5)
If Potr = "" Then
B = MsgBox ("Введіть число !!!", vbCritical," ")
UserForm1.TextBox5.SetFocus
GoTo s
End If
Zena = UserForm1.TextBox6
If Potr = "" Then
B = MsgBox ("Введіть ціну 1 л. Бензину", vbCritical, "")
UserForm1.TextBox6.SetFocus
GoTo s
End If
Zena = ""
On Error Resume Next
Zena = CDbl (UserForm1.TextBox6)
If Potr = "" Then
B = MsgBox ("Введіть число !!!", vbCritical," ")
UserForm1.TextBox6.SetFocus
GoTo s
End If
'Розрахунок загальної вартості
O_stoim = Potr / 100 * Zena * O_prob
'Пошук порожнього рядка
i = 3
While (ActiveSheet.Cells (i, 1) <> "")
E = ActiveSheet.Cells (i, 1)
i = i + 1
E = ""
Wend
'Заповнення клітинок таблиці даними
If E = "" Then
ActiveSheet.Cells (i, 1) = CStr (N_auto)
ActiveSheet.Cells (i, 2) = CStr (M_auto)
ActiveSheet.Cells (i, 3) = CStr (M_benz)
ActiveSheet.Cells (i, 4) = CStr (O_prob)
ActiveSheet.Cells (i, 5) = CStr (Potr)
ActiveSheet.Cells (i, 6) = CStr (Zena)
ActiveSheet.Cells (i, 7) = CStr (O_stoim)
End If
If N_auto = E Then
B = MsgBox ("Такий номер автомобіля є в базі даних", vbCritical, "")
UserForm1.TextBox1.SetFocus
GoTo s
End If
B = MsgBox ("Запис внесена", vbInformation, "")
For rwIndex = 3 To i - 1
For colIndex = 1 To 6
Next colIndex
Next rwIndex
'Сортування по полю "Марка автомобіля"
Selection.Sort Key1: = Range ("A3"), Order1: = xlAscending, Header: = _
xlGuess, OrderCustom: = 1, MatchCase: = False, Orientation: = xlTopToBottom, _
DataOption1: = xlSortNormal, DataOption2: = xlSortNormal, DataOption3: = _
xlSortNormal
'Заповнення форми порожніми значеннями
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
UserForm1.TextBox5.Text = ""
UserForm1.TextBox6.Text = ""
UserForm1.TextBox1.SetFocus
s:
End Sub
"Процедура виходу
Private Sub CommandButton2_Click ()
Unload Me
End Sub
'Інформація про розробника
Private Sub CommandButton3_Click ()
Load UserForm2
UserForm1.Hide
UserForm2.Show
End Sub
"Процедура ініціалізації форми
Private Sub UserForm_Initialize ()
UserForm1.Caption = "Головна форма"
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
UserForm1.TextBox5.Text = ""
UserForm1.TextBox6.Text = ""
UserForm1.TextBox1.SetFocus
'Вибір осередків шапки
Range ("A1: G1"). Select
'Об'єднання осередків
With Selection.WrapText = False
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = True
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End With
ActiveCell.FormulaR1C1 = "Індивідуальне завдання"
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Range ("A2"). Select
'Центровка запису
ActiveCell.FormulaR1C1 = "Номер автомобіля"
With Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = True
Selection.HorizontalAlignment = xlCenter
End With
Columns ("A: A"). ColumnWidth = 15
Rows ("2:2"). EntireRow.AutoFit
Columns ("A: A"). EntireColumn.AutoFit
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeRight)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
Range ("B2"). Select
ActiveCell.FormulaR1C1 = "Марка автомобіля"
'Центровка запису
With Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = False
Selection.HorizontalAlignment = xlCenter
End With
Columns ("B: B"). ColumnWidth = 15
Rows ("2:2"). EntireRow.AutoFit
Columns ("B: B"). EntireColumn.AutoFit
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
Range ("C2"). Select
ActiveCell.FormulaR1C1 = "Марка бензину"
'Центровка запису
With Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = False
Selection.HorizontalAlignment = xlCenter
End With
Columns ("C: C"). ColumnWidth = 9
Rows ("2:2"). EntireRow.AutoFit
Columns ("C: C"). EntireColumn.AutoFit
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeRight)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
Range ("D2"). Select
ActiveCell.FormulaR1C1 = "Загальний пробіг"
'Центровка запису
With Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = False
Selection.HorizontalAlignment = xlCenter
End With
Columns ("D: D"). ColumnWidth = 7
Rows ("2:2"). EntireRow.AutoFit
Columns ("D: D"). EntireColumn.AutoFit
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
Range ("E2"). Select
ActiveCell.FormulaR1C1 = "Споживання л/100"
'Центровка запису
With Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = False
Selection.HorizontalAlignment = xlCenter
End With
Columns ("E: E"). ColumnWidth = 15
Rows ("2:2"). EntireRow.AutoFit
Columns ("E: E"). EntireColumn.AutoFit
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeRight)
LineStyle = xlContinuous
Weight = xlThin
ColorIndex = xlAutomatic
End With
Range ("F2"). Select
ActiveCell.FormulaR1C1 = "Ціна 1 л бензину"
'Центровка запису
With Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = False
Selection.HorizontalAlignment = xlCenter
End With
Columns ("F: F"). ColumnWidth = 15
Rows ("2:2"). EntireRow.AutoFit
Columns ("F: F"). EntireColumn.AutoFit
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
Range ("G2"). Select
ActiveCell.FormulaR1C1 = "Загальна вартість"
'Центровка запису
With Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True
Selection.Orientation = 0
Selection.AddIndent = True
Selection.IndentLevel = 0
Selection.ShrinkToFit = True
Selection.ReadingOrder = xlContext
Selection.MergeCells = False
Selection.HorizontalAlignment = xlCenter
End With
Columns ("G: G"). ColumnWidth = 15
Rows ("2:2"). EntireRow.AutoFit
Columns ("G: G"). EntireColumn.AutoFit
'Установка шрифту
With Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.Font.Strikethrough = False
Selection.Font.Superscript = False
Selection.Font.Subscript = False
Selection.Font.OutlineFont = False
Selection.Font.Shadow = False
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = True
End With
Selection.Borders (xlDiagonalDown). LineStyle = xlNone
Selection.Borders (xlDiagonalUp). LineStyle = xlNone
With Selection.Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeRight)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
End Sub
Додаток Б. Екранна копія тестового прикладу